<%
'***********************************************
' 函数名：SnNumber
' 作  用：自动生成订单编号
' 返回值：string
'***********************************************
Function GetSnNumber()
	dim oyear,omon,oday,osec,nowtime,ostr,milsec,fstr,farr
	nowtime = now() '获取当前时间
	fstr = FormatNumber(timer()*1000,0) '获取毫秒
	farr = split(fstr,",")
	milsec = farr(1)
	ostr = year(nowtime)&right(month(nowtime)+100,2)&right(day(nowtime)+100,2)
	ostr = ostr & right(replace(time(),":","")+1000000,6)
	ostr = ostr & milsec
	Response.Write ostr
End Function
%>